home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 July & August / Amiga-CD 1997 #7-8.iso / pd-disketten / dms-gepackt / 4_96 / apd-4-96-2.dms / apd-4-96-2.adf / Amiga-E-Kurs / Listing_3.e < prev    next >
Text File  |  1996-03-13  |  343b  |  22 lines
  1. DEF x:LONG
  2.  
  3. PROC zeit(ausdruck,titel)
  4.   DEF t2,t1:LONG
  5.   -> Startzeit t1 bestimmen
  6.   Eval(ausdruck)
  7.   -> Endzeit t2 ermitteln
  8.  
  9.   WriteF('Ausführung von \s'+
  10.   'benötigte \d µs.\n',titel, t2-t1)
  11. ENDPROC
  12.  
  13. PROC main()
  14.    DEF expr:PTR TO LONG
  15.  
  16.    x := 5
  17.    expr:=[`x*x,`x+x]
  18.    zeit(expr[0],'Multiplikation')
  19.    zeit(expr[1],'Addition')
  20. ENDPROC
  21.  
  22.